home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Codigo / hh / rsource.exe / Heretic Source / P_PLATS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-02-13  |  5.4 KB  |  241 lines
  1.  
  2. // P_plats.c
  3.  
  4. #include "DoomDef.h"
  5. #include "P_local.h"
  6. #include "soundst.h"
  7.  
  8. plat_t    *activeplats[MAXPLATS];
  9.  
  10. //==================================================================
  11. //
  12. //    Move a plat up and down
  13. //
  14. //==================================================================
  15. void    T_PlatRaise(plat_t    *plat)
  16. {
  17.     result_e res;
  18.  
  19.     switch(plat->status)
  20.     {
  21.         case up:
  22.             res = T_MovePlane(plat->sector,plat->speed,
  23.                     plat->high,plat->crush,0,1);
  24.             if(!(leveltime&31))
  25.             {
  26.                 S_StartSound((mobj_t *)&plat->sector->soundorg,
  27.                     sfx_stnmov);
  28.             }
  29.             if(plat->type == raiseAndChange
  30.                 || plat->type == raiseToNearestAndChange)
  31.             {
  32.                 if(!(leveltime&7))
  33.                 {
  34.                     S_StartSound((mobj_t *)&plat->sector->soundorg,
  35.                         sfx_stnmov);
  36.                 }
  37.             }
  38.             if (res == crushed && (!plat->crush))
  39.             {
  40.                 plat->count = plat->wait;
  41.                 plat->status = down;
  42.                 S_StartSound((mobj_t *)&plat->sector->soundorg, sfx_pstart);
  43.             }
  44.             else
  45.             if (res == pastdest)
  46.             {
  47.                 plat->count = plat->wait;
  48.                 plat->status = waiting;
  49.                 S_StartSound((mobj_t *)&plat->sector->soundorg, sfx_pstop);
  50.                 switch(plat->type)
  51.                 {
  52.                     case downWaitUpStay:
  53.                         P_RemoveActivePlat(plat);
  54.                         break;
  55.                     case raiseAndChange:
  56.                         P_RemoveActivePlat(plat);
  57.                         break;
  58.                     default:
  59.                         break;
  60.                 }
  61.             }
  62.             break;
  63.         case    down:
  64.             res = T_MovePlane(plat->sector,plat->speed,plat->low,false,0,-1);
  65.             if (res == pastdest)
  66.             {
  67.                 plat->count = plat->wait;
  68.                 plat->status = waiting;
  69.                 S_StartSound((mobj_t *)&plat->sector->soundorg, sfx_pstop);
  70.             }
  71.             else
  72.             {
  73.                 if(!(leveltime&31))
  74.                 {
  75.                     S_StartSound((mobj_t *)&plat->sector->soundorg,
  76.                         sfx_stnmov);
  77.                 }
  78.             }
  79.             break;
  80.         case    waiting:
  81.             if (!--plat->count)
  82.             {
  83.                 if (plat->sector->floorheight == plat->low)
  84.                     plat->status = up;
  85.                 else
  86.                     plat->status = down;
  87.                 S_StartSound((mobj_t *)&plat->sector->soundorg, sfx_pstart);
  88.             }
  89.         case    in_stasis:
  90.             break;
  91.     }
  92. }
  93.  
  94. //==================================================================
  95. //
  96. //    Do Platforms
  97. //    "amount" is only used for SOME platforms.
  98. //
  99. //==================================================================
  100. int    EV_DoPlat(line_t *line,plattype_e type,int amount)
  101. {
  102.     plat_t        *plat;
  103.     int            secnum;
  104.     int            rtn;
  105.     sector_t    *sec;
  106.     
  107.     secnum = -1;
  108.     rtn = 0;
  109.     
  110.     //
  111.     //    Activate all <type> plats that are in_stasis
  112.     //
  113.     switch(type)
  114.     {
  115.         case perpetualRaise:
  116.             P_ActivateInStasis(line->tag);
  117.             break;
  118.         default:
  119.             break;
  120.     }
  121.     
  122.     while ((secnum = P_FindSectorFromLineTag(line,secnum)) >= 0)
  123.     {
  124.         sec = §ors[secnum];
  125.         if (sec->specialdata)
  126.             continue;
  127.     
  128.         //
  129.         // Find lowest & highest floors around sector
  130.         //
  131.         rtn = 1;
  132.         plat = Z_Malloc( sizeof(*plat), PU_LEVSPEC, 0);
  133.         P_AddThinker(&plat->thinker);
  134.         
  135.         plat->type = type;
  136.         plat->sector = sec;
  137.         plat->sector->specialdata = plat;
  138.         plat->thinker.function = T_PlatRaise;
  139.         plat->crush = false;
  140.         plat->tag = line->tag;
  141.         switch(type)
  142.         {
  143.             case raiseToNearestAndChange:
  144.                 plat->speed = PLATSPEED/2;
  145.                 sec->floorpic = sides[line->sidenum[0]].sector->floorpic;
  146.                 plat->high = P_FindNextHighestFloor(sec,sec->floorheight);
  147.                 plat->wait = 0;
  148.                 plat->status = up;
  149.                 sec->special = 0;        // NO MORE DAMAGE, IF APPLICABLE
  150.                 S_StartSound((mobj_t *)&sec->soundorg, sfx_stnmov);
  151.                 break;
  152.             case raiseAndChange:
  153.                 plat->speed = PLATSPEED/2;
  154.                 sec->floorpic = sides[line->sidenum[0]].sector->floorpic;
  155.                 plat->high = sec->floorheight + amount*FRACUNIT;
  156.                 plat->wait = 0;
  157.                 plat->status = up;
  158.                 S_StartSound((mobj_t *)&sec->soundorg, sfx_stnmov);
  159.                 break;
  160.             case downWaitUpStay:
  161.                 plat->speed = PLATSPEED * 4;
  162.                 plat->low = P_FindLowestFloorSurrounding(sec);
  163.                 if (plat->low > sec->floorheight)
  164.                     plat->low = sec->floorheight;
  165.                 plat->high = sec->floorheight;
  166.                 plat->wait = 35*PLATWAIT;
  167.                 plat->status = down;
  168.                 S_StartSound((mobj_t *)&sec->soundorg, sfx_pstart);
  169.                 break;
  170.             case perpetualRaise:
  171.                 plat->speed = PLATSPEED;
  172.                 plat->low = P_FindLowestFloorSurrounding(sec);
  173.                 if (plat->low > sec->floorheight)
  174.                     plat->low = sec->floorheight;
  175.                 plat->high = P_FindHighestFloorSurrounding(sec);
  176.                 if (plat->high < sec->floorheight)
  177.                     plat->high = sec->floorheight;
  178.                 plat->wait = 35*PLATWAIT;
  179.                 plat->status = P_Random()&1;
  180.                 S_StartSound((mobj_t *)&sec->soundorg, sfx_pstart);
  181.                 break;
  182.         }
  183.         P_AddActivePlat(plat);
  184.     }
  185.     return rtn;
  186. }
  187.  
  188. void P_ActivateInStasis(int tag)
  189. {
  190.     int        i;
  191.     
  192.     for (i = 0;i < MAXPLATS;i++)
  193.         if (activeplats[i] &&
  194.             (activeplats[i])->tag == tag &&
  195.             (activeplats[i])->status == in_stasis)
  196.         {
  197.             (activeplats[i])->status = (activeplats[i])->oldstatus;
  198.             (activeplats[i])->thinker.function = T_PlatRaise;
  199.         }
  200. }
  201.  
  202. void EV_StopPlat(line_t *line)
  203. {
  204.     int        j;
  205.     
  206.     for (j = 0;j < MAXPLATS;j++)
  207.         if (activeplats[j] && ((activeplats[j])->status != in_stasis) &&
  208.             ((activeplats[j])->tag == line->tag))
  209.         {
  210.             (activeplats[j])->oldstatus = (activeplats[j])->status;
  211.             (activeplats[j])->status = in_stasis;
  212.             (activeplats[j])->thinker.function = NULL;
  213.         }
  214. }
  215.  
  216. void P_AddActivePlat(plat_t *plat)
  217. {
  218.     int        i;
  219.     for (i = 0;i < MAXPLATS;i++)
  220.         if (activeplats[i] == NULL)
  221.         {
  222.             activeplats[i] = plat;
  223.             return;
  224.         }
  225.     I_Error ("P_AddActivePlat: no more plats!");
  226. }
  227.  
  228. void P_RemoveActivePlat(plat_t *plat)
  229. {
  230.     int        i;
  231.     for (i = 0;i < MAXPLATS;i++)
  232.         if (plat == activeplats[i])
  233.         {
  234.             (activeplats[i])->sector->specialdata = NULL;
  235.             P_RemoveThinker(&(activeplats[i])->thinker);
  236.             activeplats[i] = NULL;
  237.             return;
  238.         }
  239.     I_Error ("P_RemoveActivePlat: can't find plat!");
  240. }
  241.